10 :
20 :
30 IFX=0THENX=1:GOSUB2000:LOAD"TIME ZONE.LNK",8,1
40 IFX=1THENX=2:LOAD"TEXT.3.O",8,1
50 IFX=2THENX=3:LOAD"UNPACKER",8,1
60 :
65 POKE249,224:POKE250,204
66 POKE251,0:POKE252,64
67 :
70 GOSUB240
80 GOSUB260
81 POKE828,0:POKE829,39:POKE830,0:POKE831,24
82 POKE255,2:POKE253,0:POKE254,0:SYS51462:REM TITLE
83 SYS49161,"[204][207][193][196][211][212][193][210] PRESENTS:",4,0,0
84 SYS49161,"([195]) 1987",2,23,1
85 SYS49161,"[195]64 VERSION BY [193]LAN [199]ARDNER",7,24,0
86 SYS49161,"[208][210][197][211][211] [193] [203][197][217]",24,23,0:SYS51459:AG=3.4
87 POKE828,0:POKE829,39
88 POKE830,0:POKE831,24
90 :
180 :
185 POKE198,0:WAIT198,1:POKE198,0
190 AG=3.4:DIM UCT$(25),CT$(25),LT$(25)
200 GOSUB240:GOSUB260
201 AG=3.4:GOSUB1130
210 SYS49161,"[213]SE [195][213][210][211][207][210] KEYS AND [210][197][212][213][210][206] TO SELECT A",1,1,1
211 SYS49161,"TIME ZONE, OR PRESS '[209]' TO [209][213][201][212].",1,2,1
220 GOSUB440
230 :
240 POKE255,0:POKE253,0:POKE254,0:SYS51462:RETURN
250 :
260 POKE255,1:POKE253,0:POKE254,6:SYS51462:RETURN
390 :
400 SYS49161,"[208]ACIFIC  [205]OUNTAIN  [195]ENTRAL   [197]ASTERN",1,5,0
401 :
410 :
420 :
421 :
430 :
440 B=0:ES$=CHR$(81):RT$=CHR$(29):LF$=CHR$(157):CR$=CHR$(13)
441 BE$=CHR$(7):UP$=CHR$(145):DN$=CHR$(17):GOSUB590
450 POKE198,0:WAIT198,1:GETK$
460 IFK$=UP$THENK$=RT$
470 IFK$=DN$THENK$=LF$
480 IFK$="[208]"ORK$="P"THENB=0:GOSUB590:GOTO450
490 IFK$="[205]"ORK$="M"THENB=1:GOSUB590:GOTO450
500 IFK$="[195]"ORK$="C"THENB=2:GOSUB590:GOTO450
510 IFK$="[197]"ORK$="E"THENB=3:GOSUB590:GOTO450
520 IF(K$<>ES$ANDK$<>"[209]")THENIFK$<>RT$THENIFK$<>LF$THENIFK$<>CR$THEN450
530 IFK$=RT$THENB=B+1-(4*ABS(B=3)):GOSUB590
540 IFK$=LF$THENB=B-1+(4*ABS(B=0)):GOSUB590
550 IFK$=ES$ORK$="[209]"THENGOSUB610
560 IFK$=CR$THENF=Z(B):GOSUB670
570 GOTO450
580 :
590 :
591 MO=1:IFB=0THENMO=0
592 SYS49161,"[208]ACIFIC",2,4,MO
593 MO=1:IFB=1THENMO=0
594 SYS49161,"[205]OUNTAIN",10,4,MO
595 MO=1:IFB=2THENMO=0
596 SYS49161,"[195]ENTRAL",20,4,MO
597 MO=1:IFB=3THENMO=0
598 SYS49161,"[197]ASTERN",28,4,MO
599 RETURN
600 :
610 POKE255,3:POKE254,10:POKE253,10:SYS51462:AG=3.4
620 SYS49161,"[209]UIT FOR SURE?",15,11,0
622 SYS49161,"([217] OR [206])",18,12,0
625 POKE198,0:WAIT198,1:GETK$
630 IFK$="[217]"ORK$="Y"THEN1550
640 IFK$<>"[206]"THENIFK$<>"N"THEN625
650 GOSUB260:RETURN
660 :
670 POKE255,3:POKE254,10:POKE253,10:SYS51462:AG=3.4
680 SYS49161,"<[211]>TANDARD OR <[196]>AYLIGHT",10,11,0
681 SYS49161," [211]AVINGS [212]IME?",14,12,0
690 POKE198,0:WAIT198,1:GETCH$
700 IFCH$=ES$THEN650
710 IFCH$="[211]"ORCH$="S"THENB1=1
720 IFCH$="[196]"ORCH$="D"THENB1=2:F=F+1
730 IFB1<>1ANDB1<>2THEN670
740 GOSUB770
750 RUN190
760 :
770 GOSUB240
780 SYS49161,"[213]NIVERSAL TIME COORDINATED ([199][205][212])",2,2,1:AG=3.34
781 SYS49161,"TO "+TN$(B,B1)+" CHART",2,3,1
800 SYS49161,"[215][207][210][203][201][206][199]....",12,12,1
810 FORN=0TO23
820 UCT=N
830 LT=UCT+F
840 IFLT<0THENLT=LT+24
850 IFLT>23THENLT=ABS(LT-24)
860 GOSUB1240
870 UCT$(N)=MID$(STR$(UCT),2)+"00 "
880 IFLEN(UCT$(N))<5THENUCT$(N)="0"+UCT$(N)
890 LT$(N)=MID$(STR$(LT),2)+"00"
900 IFLEN(LT$(N))<4THENLT$(N)="0"+LT$(N)
910 IFLEN(CT$(N))<5THENCT$(N)=" "+CT$(N)
920 NEXTN
930 SYS49161,"[213][212][195]              "+T$(B,B1),4,5,1
932 SYS49161,"---              ---",4,6,1
940 FORN=0TO12
950 SYS49161,UCT$(N)+" -------  "+LT$(N)+"  "+CT$(N),3,N+7,1
960 NEXT
970 SYS49161,"[208][210][197][211][211] [193] [203][197][217]",13,23,1:POKE198,0:WAIT198,1:GETA$
980 GOSUB240
990 SYS49161,"[213]NIVERSAL TIME COORDINATED ([199][205][212])",2,2,1:AG=3.34
991 SYS49161,"TO "+TN$(B,B1)+" CHART",2,3,1
1010 SYS49161,"[213][212][195]              "+T$(B,B1),4,5,1
1011 SYS49161,"---              ---",4,6,1
1020 FORN=12TO23
1030 SYS49161,UCT$(N)+" -------  "+LT$(N)+"  "+CT$(N),3,N+7-12,1
1040 NEXT
1050 SYS49161,"[212][201][205][197] [196][201][198][198][197][210][197][206][195][197]: "+STR$(F)+" [200][207][213][210][211].",3,20,1
1060 SYS49161,"[208][210][197][211][211] [193] [203][197][217]",13,23,1:POKE198,0:WAIT198,1:GETK$
1061 POKE255,3:POKE253,10:POKE254,10:SYS51462:AG=3.34
1080 SYS49161,"[196]O YOU WANT A",15,11,0
1082 SYS49161,"[208][210][201][206][212][207][213][212] ([217]/[206])?",14,12,0
1085 POKE198,0:WAIT198,1:GETK$:IFK$<>"Y"ANDK$<>"N"ANDK$<>"[217]"ANDK$<>"[206]"THEN1085
1090 IFK$="[217]"ORK$="Y"THENGOSUB1310:K$="[206]"
1100 IFK$<>"[206]"THENIFK$<>"N"THENPRINTBE$;:GOTO1070
1110 RETURN
1120 :
1130 TN$(0,1)="[208]ACIFIC [211]TANDARD [212]IME":T$(0,1)="[208][211][212]"
1140 TN$(0,2)="[208]ACIFIC [196]AYLIGHT [212]IME":T$(0,2)="[208][196][212]"
1150 TN$(1,1)="[205]OUNTAIN [211]TANDARD [212]IME":T$(1,1)="[205][211][212]"
1160 TN$(1,2)="[205]OUNTAIN [196]AYLIGHT [212]IME":T$(1,2)="[205][196][212]"
1170 TN$(2,1)="[195]ENTRAL [211]TANDARD [212]IME":T$(2,1)="[195][211][212]"
1180 TN$(2,2)="[195]ENTRAL [196]AYLIGHT [212]IME":T$(2,2)="[195][196][212]"
1190 TN$(3,1)="[197]ASTERN [211]TANDARD [212]IME":T$(3,1)="[197][211][212]"
1200 TN$(3,2)="[197]ASTERN [196]AYLIGHT [212]IME":T$(3,2)="[197][196][212]"
1210 Z(0)=-8:Z(1)=-7:Z(2)=-6:Z(3)=-5
1220 RETURN
1230 :
1240 CT=LT:AP$="[193][205]"
1250 IFCT>12THENCT=CT-12:AP$="[208][205]"
1260 IFCT=12THENAP$="[206][207][207][206]"
1270 IFCT=0THENCT=12:AP$="[205][201][196][206][201][199][200][212]"
1280 CT$(N)=STR$(CT):IFLEN(CT$(N))<3THENCT$(N)=CT$(N)+" "
1285 CT$(N)=CT$(N)+" "+AP$
1290 RETURN
1300 :
1310 POKE255,3:POKE253,10:POKE254,10:SYS51462:AG=3.34
1320 SYS49161,"[212]URN ON YOUR PRINTER",12,11,0
1322 SYS49161,"AND PRESS [210][197][212][213][210][206]",14,12,0
1330 SYS49161,"[208]RESS '[209]' TO CANCEL.",12,13,0
1340 POKE198,0:WAIT198,1:GETK$
1350 IFK$=ES$ORK$="[209]"THENRETURN
1360 IFK$<>CR$THEN1310
1370 OPEN15,4,15:CLOSE15:IFST=0THEN1380
1372 POKE255,3:POKE253,10:POKE254,10:SYS51462:AG=3.34
1374 SYS49161,"[208][210][201][206][212][197][210] [206][207][212] [207][206]-[204][201][206][197]",12,12,0:FORDL=1TO1000:NEXT:GOTO1310
1380 OPEN4,4,7:CMD4
1382 SP$="                                        "
1390 PRINT
1400 PRINT"             [213]NIVERSAL [212]IME [195]OORDINATED ([199][205][212]) TO"
1401 PRINT"                "TN$(B,B1)" CHART.         "
1402 PRINT"                 -------------------------------"
1410 PRINT"    [213][212][195]           "T$(B,B1)"                  [213][212][195]";
1411 PRINT"           "T$(B,B1)"           "
1420 PRINT"    ---           ---                  ---           ---"
1421 PRINT"           "
1430 FORN=0TO12
1440 PRINT"   "UCT$(N)"     "LT$(N)"    "CT$(N);
1441 PRINTRIGHT$(SP$,ABS(12-LEN(CT$(N))));
1450 PRINT"     ";
1460 IFN=12THENPRINT"[212]IME DIFFERENCE: "F" HOURS.";:GOTO1490
1470 PRINTUCT$(N+12)"     "LT$(N+12)"    "CT$(N+12);
1480 PRINTRIGHT$(SP$,ABS(8-LEN(CT$(N+12))));
1490 PRINT"   "
1500 NEXT
1510 :
1520 PRINT#4:CLOSE4
1530 RETURN
1540 :
1550 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15:PRINT"[147]"
1552 PRINT"[147]";:IFER<>63THENSYS51459:END
1554 OPEN15,8,15,"I0":CLOSE15
1556 SYS51459
1560 LOAD"HELLO CONNECT",8
1570 END
2000 :
2002 POKE53281,0:POKE53280,5
2004 PRINT"[147]   [206]OW  ENTERING  THE  [212]IME  [218]ONE..."
2006 RETURN